10 REM  BORDER CHANGE
20 REM  BY JAMES JONES
30 REM  SYS 686 STARTS; SYS 679 ENDS       :
40 C=0:FORI=679TOI+36:READ D:POKE I,D:C=C+D:NEXT
50 POKE708,45:REM # JIFFIES TILL CHANGE
60 IF C<>4135 THENPRINT"ERROR IN DATA STATEMENTS":STOP
70 SYS 686:FORI=1TO10000:NEXT:SYS679
80 DATA120,169,49,160,234,208,5,120,169,187,160,2,141,20,3,140,21,3,88,96,206
90 DATA203,2,208,8,238,32,208,169,60,141,203,2,76,49,234,1